home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / f90 / pxfgetppid.z / pxfgetppid
Encoding:
Text File  |  1998-10-30  |  2.3 KB  |  60 lines
  1. PXFGETPPID(3F)                                         Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFGGEETTPPPPIIDD - Gets the parent process ID
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSUUBBRROOUUTTIINNEE PPXXFFGGEETTPPPPIIDD ((_i_p_i_d,, _i_e_r_r_o_r))
  9.      IINNTTEEGGEERR _i_p_i_d,, _i_e_r_r_o_r
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. SSTTAANNDDAARRDDSS
  15.      IEEE standard interface for FORTRAN 77
  16.  
  17. DDEESSCCRRIIPPTTIIOONN
  18.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  19.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  20.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  21.      7.2 F77 compiler.
  22.  
  23.      The PPXXFFGGEETTPPPPIIDD subroutine uses the ggeettppppiidd(2) system call to find the
  24.      parent process ID.
  25.  
  26.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  27.      UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
  28.      kind unless documented otherwise.  On UNICOS and UNICOS/mk, default
  29.      kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
  30.      IRIX, the default kind is KKIINNDD==44.
  31.  
  32.      The following is a list of valid arguments for this routine:
  33.  
  34.      _i_p_i_d      An output integer variable that contains the parent process
  35.                ID of the current process.
  36.  
  37.      _i_e_r_r_o_r    An output integer variable that contains a status of zero if
  38.                the process ID was successfully acquired.
  39.  
  40. EEXXAAMMPPLLEESS
  41.      In this example, PPXXFFGGEETTPPPPIIDD returns the current process' parent
  42.      process ID.
  43.  
  44.           program pxftest
  45.           integer ipid, ierror
  46.           CALL PXFGETPPID(ipid, ierror)
  47.           if (ierror .eq. 0) then
  48.              print *,'pid = ',ipid
  49.           else
  50.              print *,'error = ',ierror
  51.           endif
  52.           end
  53.  
  54. SSEEEE AALLSSOO
  55.      ggeettppppiidd(2)
  56.  
  57.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-
  58.      2165, for the printed version of this man page.
  59.  
  60.